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Network Management Maintenance Operations main 16-5 -Sep-1984 01:58: 34 VAX-11 Bliss-32 V4 ey 
4: DISKSVMSMASTER: chon” SRC MOMMAIN.B32;1 (1)) 


4-Sep-1984 12:4 


0001 ZTITLE ‘Network penegenent Maintenance Operations main module’ 
BR8 MODULE MOMMAIN “ at = MOMSMAIN, 
00 DRESSING_MODE (NONEXTERNAL=GENERAL), 
004 ADD pres SING. MOD os Flennme= GENERAL), 
0005 IDENT = 'V04-0 
4 0 
0007 1 BEGIN 
$88 
0010 : i eeeeeeererarererererteentenererereererererereererereneerererereeeetererereee 
is | 
Ole 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 ‘ | 
0015 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
Bale : :* ALL RIGHTS RESERVED. * 
Ie * 
0016 1 !* THIS SOFTWARE i$ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0017 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0018 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0019 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0020 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
poss : :* TRANSFERRED. * 
'e oa 
0098 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0024 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$4 : :* CORPORATION. * | 
it ® 
0027 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
BoS5 : a SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
.* ® | 
0030 1 !« * 
0031 1 SRR RRR EERE ERATE EATER A AERA 
0032 1! 
0033 1 
0034 1 !++ ‘ 
Boas : FACILITY: DECnet-VAX Network Management Maintenance Operations Module (MOM) 
0037 1 | ABSTRACT: 
sit ' This is the main module for MOM. 
sit : ENVIRONMENT: VAX/VMS Operating System 
004 1 ' AUTHOR: Kathy Perko 
0043 1! 
Gods : CREATION DATE: 13-Jan-1983 
4] 1 | MODIFIED BY: 
0047 1! v03- ~002 es Kathy Perko 11-April-1984 
98 : d NCP network managenent version number checking. 
$050 1! v03-001 MKP0001 Kathy Perko ,imdulye ie ts | 
Boe, 1! saareve status returned by various routines, Add SERVICE 
$036 : be E VERSION parameter. Clear CIBs at lettiet tree tan time. 
R238 1 i- 
055 #1 
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Network Management Maintenance Operations main Jo~se0= 1386 94:38:36 VAX=-11 
Declarations 14-Sep-1984 12:44: DISKSVM 
; 1 ZSBTTL ‘Declarations’ 

' 
TABLE OF CONTENTS: 


S23 


Liss-32_v4.0-74 p 
MASTERSLMOM SRCIMOMMAIN.B32;1°%" (25 | 


1 ; 
1 $ 
1 ; 
060 1 | : 
061 1 | : 
06 1 FORWARD ROUTINE P 
065 1 mom$ma in : NOVALUE, ; 
064 1 non.goynode : NOVALUE, : 
0065 1 mom_initialize : NOVALUE, ; 
Ss 6¢ 1 mom_init_logging : NOVALUE, : 
B96 1 mom _get_nice_msg, ; 
065 1 mom$send; : 
BOG? 1 | : 
0070 1! g 
0071 1 ! INCLUDE FILES: : 
0072 1! 3 
0075 #1 $ 
0074 1 LIBRARY ‘LIBS:MOMLIB'; ' Facility-wide definitions : 
0075 1 LIBRARY ‘SHRLIB$:NMALIBRY'; i NICE definitions : 
0076 1 LIBRARY ‘SHRLIBS:NET'; ' NETACP Q10 interface : 
tA 4 : LIBRARY *SYSSLIBRARY: STARLET’; ! VMS common definitions ; 
0079 +1 3 
0080 1! 3 
0081 1 ! OWN STORAGE: : 
et] 1! 3 
0083 1 s 
0084 1 mom$w_mbx_chan: WORD; : 
0085 1 3 
0086 1! F 
0087 1! Externals 3 
0088 1! 3 
0089 1 $MOM_EXTERNALS; : 
0090 1 3 
0091 1 EXTERNAL : 
0092 1 mom$ab_nml_mailbox_buf er: BBLOCK, : 
0095 1 npa$gl_logmask; 3 
0094 1 ; 
0095 1 EXTERNAL LITERAL : 
0096 1 mom$k _nml_mbx_buf_len; : 
0097 1 3 
0098 1 EXTERNAL ROUTINE 3 
3993 1 mom$operservice, 
100 1 mom$autoservice, 
0101 1 mom$trnlognum, 
Hy ' mom$debug_msg; 
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MOMSMAIN Main routine . 12-808-1 984 94:28:34 DT EKSVMGMASTER SEACH: Sac SHOMMAIN.B32:10 9" sd 
‘ ZSBTTL 'MOMSMAIN Main routine’ | 


GLOBAL ROUTINE MOMSMAIN : NOVALUE = 


'¢ 


1e+ 
FUNCTIONAL DESCRIPTION: 


This is the main routine for the DECnet-VAX Network Management 
Maintenance Operations Module (MOM). Maintenance operat ons 
include down line load, up Line dump, trigger, and loop node, 
circuit and Line. 


STARTUP CRITERIA: 
: MOM is started up in one of two ways: 
The Network Management Listener (NML) gets a NICE message 
from NCP requesting a maintenance operation. This is an 
operator requested maintenance operation. 
| 


i 
i 
i 
' 
i 
i 
i 
' 
i 
! 
i 
A MOP message is received from another node which requests a 
' 
i 
i 
i 
' 
i 
i 
i 
ie 


maintenance operation. NETACP will start up MOM to perform 

the operation. This is an automatic maintenance operation. 
i ROUTINE VALUE: | 
COMPLETION CODES: 

Always returns success. 

BEGIN | 
BUILTIN 
fp; 
LOCAL 
status; 


i Determine if MOM was started up by a MOP message from another node | 
(autoservice) or by NML to process a NICE service request (operservice). 


mom_initialize (); 
mom _getmode (); f 
IF oT -mom$gl_service_flags Cmom$v_autoservice] THEN 


MOM was started by NML to process a NICE service message. 


BEGIN 

status = mom get.nicemsg (); 

IF .status TREN 
mom$operservice (); 


ELSE 
MOM was started by NETACP because a MOP message was received from 


another node, The MOP message can be a request for a down Line 
load, an upline dump, a trigger, or a loop circuit or node. 
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BEGIN 


N wor 

ROMSM 

1 

§ status = ss$_normal; 
4 


a S= 
™ 


ponSautoservice 0); 
SEXIT (CODE = .status); | 
END; ! End of MOM | 


> se 2 


6 
6 
6 
6 
6 
6 
6 


-TITLE MOMMAIN Network Management Maintenance Operatio 

LIDENT \v04-000\) 

-PSECT SOWNS,NOEXE,2 
00000 MOM$W_MBX_CHAN: 

-6LKB 


2 


-EXTRN MOMSGL_LOGMASK, MOMSGL_ SVD_ INDEX 

-EXTRN MOMSAB_SERVICE DAT 

-EXTRN MOMS$GB_FUNCTION 
-EXTRN MOM$GB_OPTION_BYTE 

-EXTRN SGB_ENTITY_CODE 

-EXTRN MOMSAB_ENTITY_BUF 

-EXTRN MOMS$SGQ-ENTITY BUF _DSC | 
-EXTRN MOMSGL_SERVICE FLAGS 

-EXTRN MOMSAB_NPARSE BLK 

-EXTRN MOMSAB_NICE_RCV_BUF 

-EXTRN MOMSAB_NICE_XMIT_BUF 

-EXTRN MOMSGQ-NICE-RCV_6UF _DSC 

-EXTRN MOMSGL_NICE-RCV-MSG"LEN 

~EXTRN $GQ-NICE-XMIT_BUF_DSC 

-EXTRN MOMSAB_MSGBLOCK ~ 

~EXTRN SAB_ACPQIO_BUFFER 

-EXTRN $GQ-ACPQIO-BUF_DSC 

-EXTRN MOMSAB_CIB, MOMSAB_LOOP_CIB 

-EXTRN MOMSAB-TRIGGER_CIB 

EXTRN $AB_ MIT_BUF 


P_XMIT_BU 
EXTRN MOM$GQ-MOP~XMIT-BUF_DSC 
EXTRN MOMSAB_MOP~RC Bur 

MOM$GQ- MOP =RCV “BUF 

NOmsco _MOP_MSG_DSC 


MMMMMMMmMMMMMmMMnnMn ny 


RN SVDS$GK-PCNO_HWA 


1 
be'vetr petver’ | anepenees 9 Maintenance Operations main 1b-sep-1984 93:28:38 VAX-11 Bliss-32 V4.0-74 
- AIN Main routine 14-Sep-1984 7:44:33 DISKSVMSMASTER: CMOM. SRC JMOMMAIN.B32; a9 
-EXTRN SVD$GK_PCNO_SNV 
| ~EXTRN SVD$GK_PCNO_LOA 
eEXTRN SVD$GK_PCNO_SL 
-EXTRN SVD$GK_PCNO_TLO 
«EXTRN SVDSGK_PCNO_DFL 
| -EXTRN SVD$GK_PCNO_SID 
-EXTRN SVD$GK_PCNO_DUM 
«EXTRN SVD$GK-PCNO_SDU 
-EXTRN SVD$GK_PCNO_SHNA 
| -EXTRN SVD$GK~PCNO~SHHW 
«EXTRN SVD$GK_PCNO_SFTY 
-EXTRN SVD$GK-PCNO~PHA 
| -EXTRN SVD$GK"PCNO-SDA 
-EXTRN SVD$SGK_PCNO_LPC 
-EXTRN SVD$GK_PCNO_LPL 
sEXTRN SVD$GK_PCNO_LPD 
-EXTRN SVD$GK"PCNO-LPH 
-EXTRN SVD$GK"PCNO-LPA 
-EXTRN SVDSGK_PCNO_LPN 
-EXTRN SVD$GK_PCNO_SLNA 
-EXTRN SVD$GK"PCNO-$LNH 
.EXTRN SVD$GK~PC 
-EXTRN SVD$GK~PCNO~SLNN 
EX sve SGK PEND $LAH 


COUNT 
-EXTRN MOMSAB_NML MAILBOX BUFFER 
-EXTRN NPASGL LOGRASK MOMS$K_NML_MBX_BUF_LEN 
T OPERSERVIC 


VICE 
-EXTRN MOMSTRNLOGNUM, MOMSDEBUG_MSG 
~-EXTRN SYSSEXIT 


-PSECT S$CODES,NOWRT,2 


0004 00000 ENTRY MOMSMAIN, Save R2 
00000000v 00 00 FB 00002 CALLS #0, MOM_ initia ize 
00000600v 00 00 FB 00009 CALLS #0, MOM~GETMODE 

16 000000006 00 £8 00010 MOMSGL_ SERVICE FLAGS, 1$ 
00000000v 00 90 FB 0001 CALLS #0, MOM GET_NICE_MSG 
é 0 DO O001E MOVL RO. STATUS 
1 52 £9 00021 BLBC_ STATUS, 2$ 
000000006 00 00 FB 00024 CALLS #0, MOMSOPERSERVICE 
OA 11 00028 BRB $ 
52 01 DO 00020 18: Ls #1, STATUS 
000000006 00 09 FB 00039 CALLS #0, MOMSAUTOSERVICE 
DD 00037 28 PUSHL TATU 
000000006 00 01 FB 00039 CALLS #1, SYSSEXIT 
04 00040 RET 


; Routine Size: 65 bytes, Routine Base: S$CODES + 0000 
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GETMODE Determine the mode in MOM is runni 14-Sep-1984 12:44:33 DISKSVMSMASTER: CMOM.SRC JMOMMAIN.B32;1 


168 1 ZSBTTL "MOM_GETMODE Determine the mode in MOM is running’ : 
18 ! ROUTINE MOM_GETMODE: NOVALUE = : 
1h) } tes ; 
176 : FUNCTIONAL DESCRIPTION: : 
17%4 1 This routine determines the mode in which MOM is running by > 
176 1! determining how the image was activated. MOM can be started : 
178 1} up in two modes: : 
ivr 6 8 Autoservice = a target node has sent a MOP message poquyectng ‘ 
178 7! a maintenance function (load, dump, loop, or se goer ’ ‘ 
179 1! Gperservice = The maintenance function is being requeste : 
130 1: via a NICE message from NCP. ' 
181 #1! MOM gets started up in one of three ways: : 
186 1} By NMLSHR running as a sharable image with NCP and communicating : 
Bie 1! with NCP via buffers. : 
0184 1! By NMLSHR running as a sharable image with NML and communicating : 
Bi? 1; with NCP via a logical Link. ; . 
Hy : By NETACP when it receives an autoservice request on a circuit. : 
0188 i i IMPLICIT OUTPUTS: é 
0190 1! If MOM was started up by an autoservice function, : 
0191 1! mom$gl_service_f'ags Cmom$v_autoservice] is set. ; 
b198 1! Otherwise it iS clear. : 
01935 1! : 
gigs yin : 
0196 BEGIN 3 
0198 5 LOCAL ; 
0199 bufdesc: VECTOR (2), ' Descriptor of above buffer : 
0200 status; ! Temporary status ° 
$8 ; 
9 08 i Translate SYS$NET to determine what mode MOM was started up in. : 
$508 bufdesc fo} = mom$k_nice_buf_len; ! Setup result buffer descriptor : 
0 36 bufdesc [1] = mom$ab_nice_rcv_buf; : 
: 08 status = STRNLOG (LOGNAM = ZASCID ‘SYSS$NET', 3 
0209 RSLLEN = bufdesc (OJ, : 
0 19 RSLBUF = bufdesc); ; 
6 \f iif SYSSNET translates, MOM was activated by an NML talking to NCP via : 
8 1 : @ logical Link (operservice), or by NETACP (autoservice). It : 
14 ! was NML if the translation contains the ‘'::"’ indicating a node name. : 
1? If not, it is autoservice. : 
13 IF .status EQLU ss$_normal AND ; 
18 CHSFAIL (CHSFIND_SUB (.bufdesc [0], ‘ 
i? ponSab_nice_rcv_buf, | : 

1 UPLIT (*::"))) THEN | F 

3 ¢ BEGIN | : 
0224 i MOM was activated by NETACP for an autoservice operation. : 


c -——_—-__--_—- - $$$ 
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[) 
GETMODE Determine the mode in MOM is runni 14-Sep-1 
! Sys$net translates to the name of the circuit over which t 
i autoservice MOP request was received. Save the circuit 16 both 
as an entity ID and in the Service Data Table. 


mom$gl_ sory ice Buf sc: ie ~eutosery teed. = true; 


AxX-11 Bliss-32 V reg 7 
ISKSVMSMASTER: chon’ SRC MOMMAIN.B32; 929 (4) 


az 


Vv 
D 


mom$gq_ enti ty. put = .bufdesc 
mom$gq_entity_b = mom$ab_nice_rcv_buf 
mom$ab_serv ce saaty fs svd$gk_pcno_sli, svd$b “string. len] = .bufdesc [0]; 
CHSMOVE (.bufd 
nongab nice re 
mom$ab “Service Saota" CsvdSeh_ peno_sli, svd$t a§tringl); 


mom$ab_ service data Csvd$gk_pcno_sli; svdSv_msg_param] = true; 
ri ELSE | 
4 i NML activated MOM to process a NICE message requesting a maintenance 
44 operation. 


dentet porvien. Slane Cmom$v_autoservice] = false; 
END; ! End of MOM_GETMODE 


Se Ge Se Oe ee Oe Se Oe Se Ge Se Se Se Se Se Ge SH Se Oe Bee 
or 
-o VP wn— 
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, el ek ed 
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00 54 &5 4E 24 53 59 53 00000 P.AAB: .ASCII \SYS$NET\<0> ; 
010E0007 00008 P.AAA: .LONG 17694727 : 
00000000" 0000¢ [ADDRESS P.AAB ; 
00 00 3A 3A 00010 P.AAC: <ASCII \::\<0><0> : 
-EXTRN SYSS$TRNLOG 
-PSECT $CODE$,NOWRT,2 
OOFC 00000 MOM_GETMODE : 
57 900000006 00 9€ 00002 MOVAB MOMSGL_SERVICE FLAGS, R7 : 
6 000000006 00 i 00009 MOVAB MOMSAB_NICE_RC_BUF , ; 
SE 04 § 001 SUBL2 #4, SP : 
7E cS) 6 8F «9A 0001 MOVZBL #197, BUFDESC : 0205 
04 AE $6 9E 0001 OVAB MOMSAB_NICE_RCV_BUF, BUFDESC+4 > 0206 
— 7C 0001B CLRQ 2s = (SP) : 0210 
7E pd 901 CLRL s_ = (SP) ; 
OC AE 9F OOOTF PUSHAB BUFDESC : 
1 Ar 9F 000 é PUSHAB BUFDESC ; 
00000000° 9F 000 PUSHAB P.AAA : 
000000006 90 ‘ FB 00028 CALLS #6, SYSSTRNLOG ; 
1 D| i CPL status, it} : 0217 
66 6E 00000000" 00 1 ; 003 MAT CHC We. P.AAC, BUFDESC, MOMSAB_NICE_RCV_BUF + 0221 
53 D 4 MOVL ' :  R : 
iF 45 1$: SUBL2 : 
7 8 th BT sB2 MOMSGL_SERVICE_FLAGS : 0229 
000000006 $0 6E 50 0040 MOVL Bufbest: MOMS TENTITY Y_BUF_DSC ; $589 


.PSECT $PLITS,NOWRTNOEXE ,2 
| 


—<— SSS sss 


N Network Management Maintenance Operations main b sd $ep-1984 01:58: VAX-11 Bliss-32 V4.0-7 8 
ered MOM_GETMODE Setermine the mode an MOM is runni 12786-1383 93:28:34 DISKSVMSMASTER: CMOM. SRC MOMMAIN.B32; ad © a) ve 
000000006 00 66 9E 00054 MOVAB MOMSAB_N wice recy ofue ; 0231 
MOMSGQ> cENTITY F_pgce : 
00000000" 00 6E 90 00058 MOVB BUF D Honea satis E_DATA+- 3 0232 
ove sk “PENG suiet r 
00000000" 00 66 6E 28 00062 MOVC3 ese MSAB_NICE_R ; 0235 
“Hom AB! SERVICE ~DATATCSVBSOK. PCNO _SL1*137>>-; 
00000000* 00 01 88 0006A BISB2 Hl, <<HOMSAB_ SERVICE_DATA+<SVD$GK_PCNO -SLI*=} 0236 
4 0007 RET ; 0217 
67 O972 2$: BICB2 #1, MOMSGL_SERVICE_FLAGS 3; 0243 
f 0007 RET 3; 0245 


; Routine Size: 118 bytes, Routine Base: S$CODE$ + 0041 
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N Network Management Maintenance Operations main 16-Sep-1984 01:58:54 VAX-11 Bliss-32 V4.0-74 P 
WBe“000 MOM_INITIALI Initializet on Ror MOM 12-808-1 382 03:28:34 DISKSVMGHASTERSLMOM SRC SMOMMAIN.B32;1° 7° (53 
ZSBTTL ROR IMITIAL ETE Initialization for MOM’ 
ROUTINE MOM_INITIALIZE: NOVALUE = 


This routine performs various initialization for MOM at the 

beginning of each NICE command or autoservice function. 

The most notable of these is to set the default values - 
for the service data in the Service Data table. 


mom$gl_service_flags; 


mom$gl_service_flags = 0; 


! Initialize the Service Data Table to indicate that none of the parameter 
! values currently in the table came from a NICE or MOP message. The 

! svd$v_msg_param field is used to make sure the NICE and MOP mossene 

! parameter values are used over the parameter values from the volatile 
database. 

| 


NCR i FROM O TO svd$c_entry_count DO 
BEG! 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

| 

mom$ab_service_data (C.i, eudsp..f loge) = 0; 
mom$ab_service_data (.i, svd$b_str ng_tenJ = 0; 
mom$ab_service_data [.i, svd$l_param] = 0; 


4 
: Default the Line service timer to infinity. 
mom$ab_service_data Csvd$gk_pcli_sti, svd$l_param] = -1; 


i just in case it's a loop command, default the Loop message length, 
loop message data type, and number of messages looped. 


MOTION 


SSSLSARANLSESSLEALAN LS SSIS ARAN SSH USA Reus Doe Grn Redo O60 


mom$ab_service_data 
mom$ab_service_data 
mom$ab_service_data 


svd$gk_pcno_lpd, svd$l_param] = nma$c_loop_mix; 
svd$gk_pcno_lpc, svd$l_param] = nner LOOP ScAs: 
svd$gk_pcno_lph, svd$l_param] = mom$k_no_loo 


i just in case it's a load, default the first file loaded to the 
! secondary loader and default the system file to be loaded to 
the operating system (as opposed to diagnostics) and Phase IV. 


mom$ab_service_data taht tet svd$l_param]) = nma$c_loop_dsiz; 


p_help; 


mom$ab_service_data 


mom$ab_service_data Esvasst-peno-stty svd$l_param]) = nma$c_soft_secl; 
mom$ab_service_data * 


svd$gk_pcno_$f svd$l_param] = mop$¢_sid_osy; 
svd$gk_pcno_snv, svd$l_param3 = nma ¢_hodshv_ph4; 


SOOSOOOOCOSOOCOOS COSCO OSOCOOCOOOSOSOOOOSOSOSCOOCSOOOOOCOOCOSOOOOOO SO OOOOOOOOO 


Be Be Oe Se Be Be Se Se Be Fe Be Se Se Se Fe Se Se Fe Ge Fe Ge Se Se Se Se Se Se Se Ge Se Se Se Se Se FH Se Be Se Se Se Gs Se Se Gs Se Se Se Ss Ss Se Se Be Fe Se Ge Ge e. 


oo 
fh 


sear he (Channel Information Blocks) CIBs - these blocks contain 
: atio 


nform nm about the 1/0 channel over which the service function 


S23 


SS a 


| 
i) 


1 
N Network Mana yon Maintenance Operations main -Sep 4 VAX-11 Bliss-32 V4.0-74 
voC-000 MOM_INITIALIZE Initialization for MOM -§ Sep 71382 9:28 3 DISK KSVMGN TER: CMOM. SRC JMOMMAIN.B32; y 7 (J 
a 3 is being performed. : 
iF § 5 CHSFILL (9, cib§c.ciblen, mom$ab_¢ib) : 
3 con te, » cibsc »ciblen, mom$ab_ “[oop,, cib); : 
3 mom init_logging 7); : 
; 5 Clear out the skip MOP message buffer. This buffer is used to save : 
: \9 certain MOP messages that must be ignored if received more than once. : 
; 1 mom$gq_mop_msg_dsc [0] = 0; : 
; is § Gs, ! of MOM_INITIALIZE : 
007C 00000 MOM_INITIALIZE: ; 
. eWORD Save R2,R3,R4,R5,R6 3; 0247 3 
56 000000006 00 9E 00002 MOVAB MOMSAB_SERVICE_DATA+7, R6 : : 
000000006 00 D4 00009 CLRL MOMSGL~SERVICE_FLAGS : 0266 F 
50 01 CE 0000F MNEGL #1, I 3 0274 3 
15 11 00012 BRB : 3 
51 50 00000089 8F ¢? 00014 1$: MULL3 #137, I 3: 0276 ; 
641 94 0001C CLRB MOMSAB_SER RVICE.p TA+7 RI} : F 
4 A641 94 OOOTF CLRB MOMS$AB_ SERVIC E~ -DATASS R1 : 0277 3 
2 A641 «OOF 44 3 PUSHAB MOMS$AB_SERVICE_DATA+9(R1) 3; 0278 3 
9E D4 00027 CLAL a(SP)+ 3 3 
€3 50 00000000G 8F F3 00029 2$: AOBLEQ be ENTRY_COUNT 1$ 3 0274 3 
00000000* 00 01 CE 00031 MNEGL 1, <<ROMSAB_ CPUVICE. _BATA+<SVD$GK PCLI -STIt-; 0283 : 
00000000* 00 28 00 00038 MOVL ore, S<pOnene. SERVICE_DATA+<SVD$GK_PCNO _LPL=! 0288 ° 
00000000" 00 02 DO 0003F MOVL We. << <<MOMSAB_ SERVICE_DATA+<SVD$GK_PCNO _LPDe=; 0289 
00000000* 00 01 DO 00046 MOVL Hi, <cHOMSAB_ SERVICE_DATA+<SVD$GK_PCNO LLP Cee 0290 
00000000* 00 01 CE 0004D MNEGL Wiss S<RONSAB_ SERVICE_DATA*+<SVD$GK_PCNO LPH; 0291 
00000000* 00 04 00054 CLRL <<MOMSAB_ SERVICE_DATA+<SVD$GK_PCNO LSTY#137>=; 0297 
00000000* 00 FF 8F 9A OOOSA MOVZBL #255, <<MOMS$AB_SERV ce me gaa : 0298 
<svdS§6x PCNO_SFTY#137 : 
00000000* 00 Of DO 00062 MOVL 14, <<n nOMS SAB_ SERVICE PAT he<S¥DSGK _PCNO -SNVE~; 0299 
006¢ «BF 00 6E 0 2C 00069 moves ish: (SP), #0, #76, MOMSAB_CIB : 0305 
000000006 00 007 3 
004C 8F 00 6E 2C 0007 MOVCS #0, (SP), #0, #76, MOMSAB_LOOP_CIB ; 0306 
000000006 007C : 
00000000v 00 FB 00081 CALLS #0, MOM_INIT_LOGGING 3; 0307 
000000006 00 04 00088 CLRL MOM$GQ _MOP_MSG_DSC 3 O31¢ 
4 0008E RET ; 031 


; Routine Size: 143 bytes, Routine Base: S$CODE$ + 0087 


NIT_LOGGING 


OOCooceoa 32 


DONAUES WO OONAUE WN OO OONOUS 


WAWNAWAW NNN 


“ 
SOOO SCOCOCOCCOOOCOOCOOCOOOOOOoOOOoOO: 


CuFwn—owo 


2 
Management Maintenance Operations main 18-sop-19 4 93:38:34 VAX=11 
Initialization debug logging 2:44: DISK$V 


14-Sep-1984 


liss- 
4:33 MASTE 


ZSBTTL "MOM_INIT_LOGGING Initialization debug Logging’ 


ROUTINE MOM_INIT_LOGGING: NOVALUE = 


l++ 
' 


This routine initializes 
The logical name NML$LOG 


i 
i 
Inputs: 

The logical name NML$LOG 
hae 

BEGIN 


he internal logging flags for MOM debugging. 
s translated to ge 


the flag settings. 


Set internal logging flags if NMLS$LOG is defined. 
mom$trnlognum (SASCID ("NML$LOG'), mom$gl_logmask); 


If the NPARSE logging flag is set then set it in the NPARSE data area. 


IF .mom$gl_logmask (Cdbg$c_nparse] 
THEN “—" ~ 


npa$gl_logmask = 1 
npa$gl_logmask = 0; 
END; 


47 4F 4C 24 4C 4D 4E gone P.AAE: 


00000007 Q001C P.AAD: 
00000000" 00020 


Q00C 00000 MOM_INIT_LOGGING: 
- WORD 


000000006 
04 


BBC a 


! of MOM_INIT_LOGGING 


-PSECT SPLITS,NOWRT ,NOEXE,2 
eASCII \NMLSLOG\ 
LKB] 


“LONG 7 
“ADDRESS P.AAE 


-PSECT S$CODES,NOWRT .2 


Sa 


ve R2,R3 
MOVAB MOMSGL_LOGMASK, R3 
MOVAB BASEL LOGRASK, R2 


P. AAD 

CALLS ne MOMS TRNLOGNUM 
> MOMSGL_LOGMASK, 1$ 

MOVL #1, NPASGL~LOGMASK 


OA che’ P 
:CMOM. SRC JMOMMAIN.B32; 1 


VO4-000 


; Routine Size: 


Network Management Maintenance Operations m bse -Sep- 


MOM_INIT_LOGGING 


Initialization debug (ogg be -Sep- 


Bt BNE 1S 


42 bytes, Routine Base: S$ODE$S + 0146 


C 
R 


L 
E 


RL 
T 


a1 3h T3:20:33 | DISkSumsmast 


NPASGL_LOGMASK 


4.0- 
ERCEMOMCSRE MOMMAIN.B32; 


dD 2 
me Network Management Maintenance Operations main 16-Sep-1984 91:28:38 VAX=-11 BLi 
v04-000 MOM_GET_NICE_MSG Get the NICE service command 14-Sep-1984 12:44:33 DISKSVMSMAST 
; 3 0347 1 XSBITL "MOM_GET_NICE_MSG Get the NICE service command message’ 
; ¢ 8 rh ! ROUTINE MOM_GET_NICE_MSG = 
; 356 8 50 1 !+4 
; ef 8 2] : FUNCTIONAL DESCRIPTION: 
3. 399 0 2g ze This routine is called by MOMSMAIN when MOM is process ine a 
; 360 0354 1! maintenance operation which was requested via NCP, The routine 
; 361 0355 1! ets the NCP NICE message from the mailbox where it was put 
; 306 beee ss y NML before it started MOM. 
; 0357 1! 
; $02 tit 1 ! IMPLICIT INPUTS: 
3 369 0555 1! NMLSMOMMBX = translates to name of mailbox that NML wrote the 
3 360 0360 1! NICE message to before spawning MOM. 
3 62Or 0361 1 !-- 
; 368 bae8 BEGIN 
; 369 036 
: 70 0364 LOCAL 
» ari 0365 status, ! Temporary status 
, Se 0366 iosb: $iosb; 
: 3p 0367 
; 374 0368 : 
; offs 0369 ! Assign a channel to NMLSMOMMBX, and, if I got it, read NML's aeeeaae 
: 376 0370 ! from it. The first 3 oytes of the message will contain the networ 
: ee ee } management version of the NCP originating the message. 
; 379 P 0378 Status = SASSIGN (DEVNAM = ZASCID "NMLSMOM_MBX', 
; 380 0374 2 CHAN = mom$w_mbx_chan); 
3 oe 0375 ¢ IF .status THEN 
; $58 0376 BEGIN 
; P 0377 status = $Q]0W ( : 
; 384 P 0378 FUNC = io$_readvblk, ! Read NML's mailbox 
; 385 P 0379 CHAN = ,mom$w_mbx_chan, ! Mailbox channel 
; 386 P 0380 ; 10SB = iosb, 
, oer P 0381 P1 = mom$ab_nml_mailbox_ buffer, ! Buffer for NML info 
; 4388 try 3 P2 = mom$k_nml_mbx_buf_Ten); ! Length of mailbox buffer 
; 3 0383 3 IF .status THEN 
3 339 ote H , Status = -iosb Cios$w_status]; 
3 Be 0386 3 ! If got the NICE message OK, save the length. Compensate for the 3 
3 $07 3344 3 bytes of NCP management version at the beginning of the buffer. 
3 395 0389 : IF .status THEN 
3 $09 Beat & BEGIN 
; 397 0391 4 mom$gl_nice_rcv msg_len = .iosb Cios$w_count] - 3; ) 
; 398 0336 4 mom$debug_msg (dbg$c_netio, ! Log message transmitted 
; 399 0393 4 mom$ab_nice_rcv_buf, 
: 400 0394 4 snonbal nice rcv_msg_len, 
: 401 0395 4 ZASCID "MOM RICE™mesSage received from NML"); 
: 402 Bane 3 END; 
: 403 tH § END; 
3: 404 398 RETURN .status; 
; 405 0399 1 END; ! of MOM_GET_NICE_MSG 


ss-32 V4.0 
R 


~PSECT $PLITS,NOWRT ,NOEXE ,2 


~w 


no 


shes Pag 
ER: CMOM. SRC JMOMMAIN.B32; 1 ( 


2 | 
AIN Network Management Maintenance Operations main 16- Sep-1984 58:54 VAX-11 Bliss-32 V 14 | mC 
yOsr000 MOM_GET _NICESMSG Get the NICE tates be command 1 ~8ep-19 4 94:28: 3 DISKSVMSMASTER: CMon. OSRCSMOMMAIN. B32; — (7) | ve 
| o 
00 58 42 4D SF 4D 4F 4D 26 4C 4D 4E 00024 P.AAG: “ASCII \WA, SHOR MBX\<0> ; 3 
HS Bea 0 P.AAF: : : 
67 61 73 73 65 6D 20 45 43 49 GE 20 4d age $3 P.AAI “ADDRESS, AR arce d f NML\<0 : | 
e : e message receive rom > s > 
gD GF 72 66 30 be 6S fe 6d 6s 68 oy PD 3p Ob bnoee , : | 
00 4C 4D 4E 20 00056 : : 
- 9 0058 «ASC i : : 
010E00 OO5C P.AAH: tone. 17694754 : : 
00000000" 00060 -ADDRESS P.AAI : : 
-EXTRN SYSS$ASSIGN, SYS$QI10W : 
-PSECT SCODE$,NOWRT,2 : 
001C 00000 MOM_GET_NICE_MSG: : 
WORD Save ay? “ag ; 0348 : 
54 00000000' 00 9€E 00002 MOVAB MOMS RG 3 , 
53 000000006 00 25 00009 MOVAB MOMseL hak im HRY _MSG_LEN, R3 : : 
SE 08 C2 00010 SUBL2 #8, SP ; : 
7E 7C 00013 CLRO. = = (§P) + 0374 ; 
54 DD 00015 PUSHL R4 : : 
00000000" 00 9F 00017 PUSHAB P.AAF : : 
000000006 00 04 FB 0001D CALLS #4, SYSSASSIGN 3 : 
52 50 DO 00024 MOVL RO, STATUS 3 ; 
40 52 €9 00027 BLBC STATUS, 1$ ; 0375 F 
7E C 0002A CLRQ -(SP) ; 0382 : 
7E 7C 0002C CLRQ (SP) : 3 
00000000G 8F DD 40 PUSHL #MOMS$K_NML_MBX_BUF_LEN F : 
000000006 00 9F 00034 PUSHAB MOMSAB_NML_MAICBOX_ ~BUFFER : : 
7E 7C QOO3A -(SP) 3 $ 
20 AE 9F 0003C PUSHAB I0SB : 3 
31 bo 0003F PUSHL #49 : : 
7E ge C 00041 MOVZWL noms _MBX_CHAN, =(SP) : $ 
E D4 00044 CLRL : ; 
00000000G 00 OC FB 00046 CALLS re "$8004 $ 5 
52 50 DO 00040 MOVL RO, STATUS ‘ 3 
¢3 52 2 Benes BLBC STATUS 3 ; 0383 
2 6 ¢ 0005 MOVZWL 10SB, STATUS > 0384 
i 5 ? Benes BLBC TATUS, ; 0389 
6 02 Ag C 00059 MOVZWL Bon MOMSGL_NICE_RCV_MSG_LEN ; 0391 
63 9 ge 00038 SUBL2 MOMSGL _NICE_RCV_MSG_LEN : 
00000000' 9 F 00060 PUSHAB ; 0394 
po 60066 PUSHL ROMSCL _NICE_RCV_MSG_LEN 3 
00000000G 00 9F 00 PUSHAB MO MSAB_NICE_RCV_BUF~ 3; 0392 
E D4 Bobs CLRL S 3 
000000006 00 4 FB 0007 CALLS x. MOMSDEBUG _MSG ; 
50 2 00 00077 1$: MOVL STATUS, RO 3 
04 OO07A RET ; 0399 
; Routine Size: 123 bytes, Routine Base: S$CODE$ + 0170 


, 2 
Management Maintenance Operations main -Sep- 


END Send NICE response to caller 10739871382 9332 : 


hel Page 1 
: (MOM. SRC JMOMMAIN.B32;1 (8). 


i: 
se 


0:33 


3 re) ‘1 9 } ZSBTTL "MOMSSEND Send NICE response to caller’ 

3 ret ri § 1 GLOBAL ROUTINE MOMSSEND (BUF_ADDRESS, BUF_LENGTH) = 

: «6411 404 1 !4+ 

; tig 405 1! 

; 41 4 $ 1 ! Function: 

> 4146 407 1! The routine writes the NICE status messages back to NML's 

> 415 408 1! mailbox. NML will then read the mailbox and forward the response 
; 416 409 1! to NCP. The status messages give the completion status of the 
; rat 4 Reid : requested maintenance operation. 

: rt act 1 ! Inputs: 

; 420 0415 1! 

: 421 0414 1! buf_address Address of the buffer to be transmitted. 

3; «4 ¢ 0415 1! buf_length Length of the buffer in bytes. 

3 «6 pois 1! 

: 626 041 1 ! Outputs: 

3; 425 0418 1! 

: 426 0419 1! Returns success. Errors are signalted. 

3 627 0420 1 !-- 

; 428 0421 +1 

: 429 04 ; BEGIN 

; 430 04 

; 431 0424 LOCAL 

; 432 beS2 status, 

3 $655 0426 iosb: Siosb; 

> 434 og H 

: 435 0428 maaSconegpaptdegts net te. ! Log message transmitted 

: 436 9494 § -buf_address, 

3; 437 0430 . buf Length. 

: $38 ett ZASCID ‘MOM NICE message sent to NML'); 

; 440 P 043 status = $Q10W ( : 
3 441 P 0434 FUNC = fo$_writevblk OR ioSm_now,! Write to NML's mailbox 
3; «44 P 0435 CHAN = .mom$w_mbx_chan, : Mailbox channel 

3; «44 P 0436 10SB = iosb, 

> 444 P 0437 Pl = .buf_address, ! Buffer for NICE message 
; rr Bese P2 = .buf_length); ! Length of NICE buffer 
3; 447 0440 ! If the Q10 to the mailbox was successful then get look at the I0SB. 
; 448 0441 : 

: 449 044 

; 450 44 IF .status THEN 

: 4651 444 status = .iosb Cios$w status); 

3 rt 445 

; 45 44 : 

3; 4546 44 ! If status is bad then signal the error. 

: 455 44 : 

3; 456 44 

3; 457 +29 IF NOT .status THEN 

; 458 451 SIGNAL, STOP (.status); 

: 459 136 

; 460 45 

3 ret $38 RETURN true; ! Return successful 

; 46 0456 END; ! of MOMSSEND 


~w 
-_ 


; Routine Size: 79 bytes, Routine Base: S$CODES + O1EB 


.EXTRN LIBSSTOP | 
PSECT SUMMARY 
Bytes Attributes 
NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
570 NOVEC.NOWRT, RD. EXE.NOSHR. LCL. REL. CON-NOPIC.ALIGN(2) 
136 NOVEC.NOWRT. RD {NOEXE.NOSHR, LCL. REL. CON.NOPIC.ALIGN(2) 


2 
— N Network Management Maintenance Operations sain 1b-s6 1984 :58: VAX-11 Bliss-32 V4.0-74 Page 16. 
Vv "000 MOMSSEND Send NICE response te caller 12-Sep-1984 03:28:38 DIEKSVMGHASTERSLMOM SRCSMOMMAIN.832:1 ° (8) 
-PSECT S$PLITS,NOWRT,NOEXE ,2 | : 
67 61 73 73 65 6D 20 45 43 49 GE 20 4D GF 064 P.AAK: .ASCII \MOM NICE message sent to NML\ : : 
4C 4D 4E $8 6F 74 20 74 6€ 28 3 $0, $ 09 3 ’ 3 ; 
1 £08 o5" 0080 P.AAJ: .LONG 17694748 3 , 
00060 0084 ADDRESS P.AAK : | ; 
| ; 
-PSECT S$CODE$,NOWRT,2 ; 
0000 00000 ENTRY MOMSSEND, Save nothin 3 0402 , 
5€ 08 C2 00009 SUBL2 a8. SP . 5 : 
eoceneg9" 0 9F 000 PUSHAB P.AAJ 3 0430 ; 
7E 4 AC 7D 90008 MOVQ BUF _ADDRESS, -(SP) : 0429 ; 
7E 04 O000F CLRL = (SP 3 0428 ; 
000000006 00 04 FB 00011 CALLS #4 phOMSDEBUG_ASG 3 : 
7E 7C 00018 CLRQ -(SP) 3 0438 ; 
Te ib pape CLRQ -(SP) 3 . 
7E 04 AC 7D 0001C MOV BUF ADDRESS, -(SP) : : 
7E 7C B28 CLRO (SP) 3 : 
0 AE 99F 000 PUSHAB uke 3 : 
7E 0 8F 9A 000 MOVZBL Hi : : 
7E 00000000' 00 3c¢ 00029 MOVZWL MOMS nox P CHAN, -(SP) : | b 
7E DS 00030 CLRL -(SP $ : 
000000006 00 OC FB 00032 CALLS nie  syssai0w : F 
06 50 5? Bn BLBC 3: 0443) 3 
50 6— 3¢ 005¢ MOVZ2WL 10SB, STATUS + 0444 ; 
09 50 €E8 0003F BLBS STATUS, 2$ ; 0450 3 
50 DD 00042 1$: PUSHL STATUS ; 0451 8 
000000006 00 01 FB 00044 CALLS #1, LIBS$STOP 3 3 
50 01 DO 00048 2$: MOVL #1, RO 3 0454 3 
04 0004E RET : 0456 : 


Network Management Maintenance Operations main -1984 01:58:54 VAX-11 Bliss-32 V4.0-7 Page 17. 
v04-000 MOMSSEND Send NICE response to caller 1984 9332834 DISKSVMSMASTER:CMOM, sre MOMMAIN.B32;1 . ead V 
Library Statistics | 
ete ee ee Syabol$ -ooe-ee- Pages Processing 
; File Total Loaded Percent Mapped Time | 
: _$255$DUA OBJ JMOMLIB.L 194 2 1 21 :00.1 
; <3 3 SDUA ESHRCTB Neri serie igi! 31 87 g 47 5; ’ 
a S$UA T.L52;1 1279 8 $3 8: “ 
; —S$255$DUA ESyst ibis ARLET.L32;1 9776 1 581 :03. 
: COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:MOMMAIN/OBJ=OBJ$:MOMMAIN MSRC$:MOMMAIN/UPDATE=(ENHS :MOMMAIN) 
; Size 570 code + 138 data bytes 


; Run “rime 6:13.) 
| Blaseed. Time: FE 

: : Lines/CPU Min: \8¢9 

; Lexemes/CPU-Min: 14457 | 

: ponety Used: 99 pages 

; Compilation Complete 
| 
} 
| 


A590 AH-BT13A-SE EQUIPMENT CORPORA 
Sw VAX/VMS V4.0 : NTIAL AND PROPRIET 


TION | 
ARY 


I 
R 


